% Change block size
% This code takes care of the associated
% changes in length, Selection stacks & Weights variables

% Latest date 7.7.3

function[ProcDef] = Change(ProcDef,block),

Previous = ProcDef.block;
ProcDef.block = block;
[TLine,TLRad,TLFreq,TBand] = settline(ProcDef.block,ProcDef.RadSize(ProcDef.RdBd)); % target freq, line & radius for all bands
ProcDef.TLine1  = TLine(find(TBand==ProcDef.nband));
ProcDef.TLRad1  = TLRad(find(TBand==ProcDef.nband));
ProcDef.TLRad1(find(ProcDef.TLRad1<4))=4; % ensures min dof
k=find((ProcDef.TLine1-ProcDef.TLRad1)<0);
ProcDef.TLFreq1 = TLFreq(find(TBand==ProcDef.nband));
ProcDef.TLFreq1(k)=[]; % This deletes frequencies with less than 4 harmonics to average
ProcDef.nfrq = length(ProcDef.TLine1)-length(k);
%ProcDef.SelStacks = ones([1,; % ?
ProcDef.Weights; % ?
ProcDef.len; %?